source('plotfdp.R')

xs <- runif(100, xlim[1], xlim[2])
ys <- runif(100, ylim[1], ylim[2])

points(xs, ys,
	pch='x', cex=.75,
	col='black', lwd=2)

